function [F,F1,F2] = prodf(macrov,parms);
% given macrov, compute F(K,AN), F1(K,AN), F2(K,AN)

recvpnew

F = (K^al)*((Abar*N)^(1-al));
F1 = al*(K^(al-1))*((Abar*N)^(1-al));
F2 = (1-al)*(K^al)*((Abar*N)^-al);

end